home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Input 64
/
Input_64_85-05_1985_Verlag_Heinz_Weise_de.d64
/
K L I
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
14KB
|
558 lines
0 ifpeek(50307)=120thenpoke50257,16:fori=54272to54272+28:pokei,0:next
1 print"[147]";chr$(158);chr$(142);chr$(8):poke53280,7:poke53281,7:goto8000
2 poke214,0:print:print"[145][144]"
3 print"[213][178][192][192][192][192][192][192][192][192][192][192][178][192][192][178][192][192][178][178][178][178][178][178][178][192][192][178][201]"
4 print"[171][179] [202][192][192][177][192][178][219][219][177][177][177][177][177][192][192][177][179]"
5 print"[171][179] [221][221][221] [221]"
6 print"[171][179] [213][192][178][178][192][201] [221][202][179] [221]"
7 print"[171][179] [221][213][177][177][192][203] [171][192][179] [160][221]"
8 print"[221][221] [171][179] [171][192][179] [213][201] [160][221]"
9 print"[221][221] [171][179] [213][178][192][178][192][178][192][192][203] [221] [171][179] [221]"
10 print"[171][179][160][160][171][179] [221][202][192][177][192][179][213][192][192][192][203] [171][179] [213][179]"
11 print"[171][179] [171][179] [202][192][192][192][192][177][203] [171][179] [221][221]"
12 print"[171][179] [171][179] [160] [171][179] [171][179]"
13 print"[171][203] [221][202][192][178][178][178][192][192][192][178][178][178][178][178][178][192][192][178][178][203][221] [171][179]"
14 print"[221][220] [202][192][192][177][177][177][192][192][192][177][177][177][177][177][177][192][192][177][177][178][179] [171][179]"
15 print"[221][220] [160] [220][221][209] [221][221]"
16 print"[221][220] [220][206] [171][179]"
17 print"[171][178][178][192][178][178][178][192][178][192][192][201] [213][178][192][178][178][192][178][192][206] [209][221]"
18 print"[221][171][177][192][177][177][177][201][221][213][192][203] [202][177][201][221][171][192][177][206] [206][192][179]"
19 print"[171][179] [171][179][221] [221][202][177][192][206] [206][219][192][179]"
20 print"[171][179] [171][219][179] [171][192][192][206] [206] [221][213][179]"
21 print"[171][179] [171][179][202][178][178][178][178][178][192][203] [206] [206][192][192][219][219][179]"
22 print"[221][221] [202][177][192][177][177][177][177][177][192][192][209] [206][178][178][178][177][219][179]"
23 print"[221][221] [206][192][219][203][171][192][219][179]"
24 print"[171][177][178][178][178][178][201] [206][192][192][219][192][177][192][219][179]"
25 print"[202][192][177][177][177][177][177][192][192][192][192][192][192][192][192][192][192][192][192][209][192][192][192][177][192][192][192][177][203]"
26 poke214,0:print:print"[158]":return
28 poke214,0:print:print"[145]"
29 print"[213][178][192][192][192][192][192][192][192][192][192][178][178][178][178][192][192][178][178][178][192][192][192][192][192][178][192][192][201]"
30 print"[171][179] [202][177][177][177][192][192][177][177][203] [171][178][178][179]"
31 print"[171][179] [202][177][177][179]"
32 print"[171][179] [213][201] [221]"
33 print"[171][203] [171][179] [221]"
34 print"[221] [221][221] [213][178][178][192][192][192][178][201] [221]"
35 print"[221] [221][221] [171][219][177][192][192][192][179][171][178][178][178][178][192][201] [221]"
36 print"[221] [171][179] [221][221] [202][177][177][177][177][177][201][221] [221]"
37 print"[221] [171][179] [171][179] [171][179] [221]"
38 print"[221] [213][192][219][179] [171][179] [221][221] [221]"
39 print"[221] [221] [171][179] [171][219][192][192][192][192][178][178][178][201] [171][179] [221]"
40 print"[221] [202][192][177][203] [202][177][192][192][192][178][177][177][219][179] [221][221] [221]"
41 print"[221] [202][192][192][177][203] [202][203] [221]"
42 print"[221] [221]"
43 print"[221] [213][192][178][178][201] [221]"
44 print"[221] [171][192][177][177][179] [213][201] [213][192][201] [213][178][179]"
45 print"[221] [202][192][192][178][179] [171][179] [221] [221] [202][177][179]"
46 print"[221] [221][221] [171][179] [221][213][179] [221]"
47 print"[221] [171][177][178][192][201] [202][203] [221][221][221] [221]"
48 print"[221] [202][192][177][192][203] [202][177][203] [221]"
49 print"[221] [221]"
50 print"[221] [213][178][192][192][201] [221]"
51 print"[202][192][192][192][192][192][192][192][192][192][192][177][177][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][203]"
52 return
53 print"[213][192][192][192][192][192][192][192][192][201][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
54 print"[221] [171][179] [221]"
55 print"[221] [171][179] [160] [221]"
56 print"[221] [213][201] [171][179] [213][178][192][192][192][192][178][201] [221]"
57 print"[221] [171][179] [213][177][179] [221][171][192][192][178][192][179][221][160][160][160][221]"
58 print"[221] [171][179] [171][192][179] [221][171][192][192][177][192][219][179] [221]"
59 print"[221] [221][221] [171][192][177][178][178][201] [221][221] [221][221] [221]"
60 print"[221] [171][179] [221][213][192][177][177][203] [221][221] [171][179] [221]"
61 print"[221] [171][179] [171][179] [171][179] [171][179] [221]"
62 print"[221] [221][221] [202][203] [213][178][178][178][178][177][179] [171][179] [221]"
63 print"[221] [221][221] [221][171][177][177][177][192][203][160] [221][221] [213][179]"
64 print"[221] [171][179][160][160][160][160][160][160][171][179] [160] [171][179] [171][179]"
65 print"[221] [221][202][178][192][178][192][178][178][203][221][160][160][160][160][160][160][160][160][160][171][179] [202][179]"
66 print"[221][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
67 print"[221][221] steuern sie die kugel [221]"
68 print"[221][221] moeglichst schnell durch [221]"
69 print"[221][221] den parcours. gehen sie [221]"
70 print"[221][221] jedoch sparsam mit den [221]"
71 print"[221][221] steuerimpulsen um. [221]"
72 print"[221][221] [221]"
73 print"[221][221]1-spieler 2-spieler[221]"
74 print"[221][202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
75 print"[202][192][192][192][192][192][192][192][177][177][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
76 poke214,0:print:printtab(29)" "
77 printtab(29)"runde.... "
78 printtab(29)"spieler.. "
79 printtab(29)" "
80 printtab(29)" "
81 printtab(29)" "
82 printtab(29)" "
83 printtab(29)"[192][192][192][192][192][192][192][192][192][192]"
84 printtab(29)" runde 1 "
85 printtab(29)"[192][178][192][192][192][192][178][192][192][192]"
86 printtab(29)"1[221] [221] "
87 printtab(29)"2[221] [221] "
88 printtab(29)"[192][177][192][192][192][192][177][192][192][192]"
89 printtab(29)" runde 2 "
90 printtab(29)"[192][178][192][192][192][192][178][192][192][192]"
91 printtab(29)"1[221] [221] "
93 printtab(29)"2[221] [221] "
94 printtab(29)"[192][177][192][192][192][192][177][192][192][192]"
95 printtab(29)" runde 3 "
96 printtab(29)"[192][178][192][192][192][192][178][192][192][192]"
97 printtab(29)"1[221] [221] "
98 printtab(29)"2[221] [221] "
99 printtab(29)"[192][177][192][192][192][192][177][192][192][192]"
104 return
109 poke214,12:print:print
110 print"[221] [171][192][203] [171][178][177][177][192][203] [171][179] [221]"
111 print"[221] [171][192][201] [202][179] [213][178][192][178][178][192][192][192][179][221] [221]"
112 print"[221] [221] [171][178][192][179] [202][177][192][177][177][192][192][201][202][219][201] [221]"
113 print"[221] [171][192][219][219][192][179] [171][178][219][179] [221]"
114 print"[221] [221] [221][221] [221] [202][177][177][203] [221]"
115 print"[221] [202][192][177][177][201][221] [221]"
116 print"[221] [221][221] [218] [221]"
117 print"[221] [171][219][201] [221]"
118 print"[194] [221][221][221] [221]"
119 return
120 goto8000
200 a=peek(56320)
220 ifa<>127thenpokes4,65:i=i-1
230 if(aand8)=0thenvx=vx+b(ru)
240 if(aand4)=0thenvx=vx-b(ru)
250 if(aand1)=0thenvy=vy-b(ru)
260 if(aand2)=0thenvy=vy+b(ru)
270 return
300 a=peek(203)
320 ifa<>64thenpokes4,65:i=i-1
330 ifa=7thenvy=vy-b(ru)
340 ifa=2thenvy=vy+b(ru)
350 ifa=12thenvx=vx-b(ru)
360 ifa=23thenvx=vx+b(ru)
370 return
500 u=0
510 ifx>cthend=1:e1=252:e2=253
515 ifx<cthend=-1:e1=250:e2=251
520 ify>gthenh=1
530 ify<gthenh=-1
600 return
700 ifk=129thengoto2400
730 pokesi+4,129:ifk=3thengoto800
731 pokevc+23,128:pokevc+29,128
732 if(kand2)<>0then:pokevc+21,peek(vc+21)-2:pokev2,0:return
740 pokevc+21,peek(vc+21)-(k-1)
745 ui=ui+2:pokeuu(ui),32:pokeuu(ui+1),32
750 pokev2,0
760 pokevc+21,(peek(vc+21)or2)
761 pokevc+23,0:pokevc+29,0
763 forn=1to100:next
790 return
800 pokesi,103:pokesi+1,17
815 pokesi+4,17:forn=1to300:next:pokesi+4,16
820 forn=30000to1000step-500
822 pokesi+4,33:i=i-2
823 poke214,5:print:printtab(31);i;"[157] "
824 ifx>90thenx=x-2
826 ifx<90thenx=x+2
828 ify>190theny=y-2
830 ify<190theny=y+2
832 pokesi,nand255:pokesi+1,int(n/256)
834 pokevc,x:pokevc+1,y
835 pokevc+39,fa
836 pokevc+23,peek(vc+23)+1
837 fa=n/2000
838 pokevc+29,peek(vc+29)+1
840 pokesi+4,32
842 next
843 pokevc+39,13
844 pokevc+23,0:pokevc+29,0
854 x=90:y=190:vx=0:vy=0
855 pokevc,x:pokevc+1,y
857 c=100:g=80:pokevc+2,c:pokevc+3,g
858 pokev2,0
860 return
1000 pokesi+4,17:m=0
1010 poke2040,13:pokev1,0
1015 pokesi,138:pokesi+1,58:pokesi+24,15
1020 if(peek(v1)and1)<>0thenvx=vx*-1:x=x+2*vx:m=1
1022 poke2040,14:pokev1,0
1023 pokesi,138:pokesi+1,58:pokesi+24,15
1024 if(peek(v1)and1)<>0thenvy=vy*-1:y=y+2*vy:m=2
1025 poke2040,11
1035 pokevc,x:pokev3,y
1060 pokev1,0
1070 pokesi+4,0:pokesi+24,9
1071 pokesi,98:pokesi+1,193
1080 if(x<20orx>245ory<55ory>235)thengoto1112
1085 if(peek(v1)and1)=0thenx1=x:y1=y:return
1087 pokesi,73:pokesi+1,193
1088 pokesi+4,17
1090 ifm<>1thenvx=vx*-1:x=x+2*vx
1091 ifm<>2thenvy=vy*-1:y=y+2*vy
1095 pokevc,x:pokev3,y:pokev1,0
1097 pokesi+4,0
1098 if(x<20orx>245ory<55ory>235)thengoto1112
1099 if(peek(v1)and1)=0thenx1=x:y1=y:return
1112 x=x1:y=y1:vx=0:vy=0:return
1200 rem up
1220 ifk=3thenvx=vx+.3:po=2
1225 ifk=9thenvx=vx+.3:po=3
1230 ifk=33thenvx=vx-.3:po=5
1235 ifk=65thenvx=vx+.3
1240 ifk=5thenvx=vx-.3:vy=vy+.2:po=2
1270 pokev2,0
1280 ifk=17thenvx=vx-.3:po=4
1285 ifk=129thengoto4000
1299 return
1400 rem up
1405 ifpo<4thengoto1415
1410 if(y<165andy>143and(x<39orx>173))thengosub1000:goto1480
1415 pokesi+4,129:forn=1to250:nextn
1420 form=1to10
1424 pokesi+4,33:i=i-5
1425 poke214,5:print:printtab(31);i;"[157] "
1426 pokesi+4,32:forn=1to50:next
1427 nextm
1430 vx=0:vy=0
1450 x=px(po):y=py(po)
1452 pokevc,x:pokevc+1,y
1480 pokev1,0
1490 return
1500 ifk=3thenvy=vy+.3
1540 ifk=5thenvx=vx-.2
1550 ifk=9thenvx=vx-.2
1560 ifk=17thenvy=vy+.2
1570 ifk=33thenvx=vx+.2
1580 ifk=65thenvx=vx+.2
1590 pokev2,0
1610 ifk=129thengoto1800
1700 return
1800 rem *
1805 gosub10500
1806 ifpl=1thenzz=10
1807 ifpl=2thenzz=11
1808 gosub10200
1809 ifpl=1theng1=g1+i
1810 ifpl=2theng2=g2+i
1812 poke214,0:print:printtab(0)"[145]spieler-1:";g1;tab(18)"spieler-2:";g2
1855 if(sp=2andpl=1)thenpl=2:goto9485
1860 pl=1
1880 poke1142,50:poke1182,48+pl:ru=2
1900 rem*
1901 r=1:e1=250:e2=251:ui=6
1905 pokevc+23,0:pokevc+29,0
1907 pokev1,0:pokev2,0:pokevc+21,0
1908 pokevc+40,14
1910 gosub28
1912 poke214,0:print:print"[158]"
1913 poke53280,0:poke53281,0
1925 forn=0to62:readm:poke960+n,m:next
1930 forn=0to62:readm:poke16000+n,m:next
1935 forn=0to62:readm:poke16064+n,m:next
1940 forn=0to62:readm:poke16128+n,m:next
1945 forn=0to62:readm:poke16192+n,m:next
1950 forn=2042to2046:poken,15:next
1953 forn=4to13:readm:pokevc+n,m:next
1955 forn=1to10:readm:uu(n)=m:next
1966 pokevc+23,0:pokevc+29,0
1967 poke2047,255:poke2041,253
1968 pokevc+14,130:pokevc+15,115
1970 pokevc+21,255:ui=6
1971 x=90:y=190:vx=0:vy=0:k=0
1972 pokevc,x:pokevc+1,y:pokev2,0
1973 c=100:g=80:pokevc+2,c:pokevc+3,g
1974 i=1000:pokev2,0
1975 pokevc+23,0:pokevc+29,0
1990 forn=1to6:pokeuu(n),104:next
1991 forn=7to10:pokeuu(n),92:next
1992 ui=-1
2080 gosub10000
2100 rem*
2105 i=i-1
2110 onflgosub200,300
2145 poke214,5:print:printtab(31);i;"[157] "
2146 ifi<2theni=0:goto2400
2148 ifr=1thenpoke2041,e1:r=2:goto2150
2149 ifr=2thenpoke2041,e2:r=1
2150 pokesi+4,0
2155 vx=vx-vx/25:vy=vy-vy/25
2160 x=x+vx:y=y+vy
2175 pokevc,x:pokev3,y
2180 l=peek(v1):if(land1)=1thengosub1000
2190 c=c+d:g=g+h
2195 pokev4,c:pokev5,g
2200 u=u+1:ifu=15thengosub500
2220 k=peek(v2):if(kand1)=1thengosub700
2300 goto2100
2400 rem*
2405 gosub10500
2410 zz=14+pl
2420 gosub10200
2459 ifpl=1theng1=g1+i
2460 ifpl=2theng2=g2+i
2461 poke214,0:print:printtab(0)"[145]spieler-1:";g1;tab(18)"spieler-2:";g2
2462 if(sp=2andpl=1)thenpl=2:goto1970
2470 poke1142,51
2600 rem*
2601 pokevc+21,0:pl=1:ru=3
2602 poke53280,6:poke53281,6
2610 forn=2to12step2:readm:pokevc+n,m:readm:pokevc+n+1,m:next
2615 forn=1to6:poke2040+n,254:next
2619 forn=600to62:poke960+n,0:next
2620 pokevc+23,12:pokevc+29,114
2622 pokevc+14,116:pokevc+15,183
2623 forn=40to45:readm:pokevc+n,m:next
2624 forn=1to5:readpx(n):readpy(n):next
2625 gosub2
2626 poke55777,15:poke55817,15:poke55857,15
2627 poke55838,15:poke55878,15
2630 pokevc+21,255
2650 po=1:x=px(po):y=py(po)
2651 pokevc,x:pokevc+1,y
2660 i=1000:poke1182,48+pl
2665 poke214,0:print:printtab(0)"[145]runde 3:achtung bande nicht beruehren"
2680 gosub10000:i=1500:pokev2,0:pokev1,0
2681 poke1906,114:poke1907,114:poke1908,114
2682 poke214,0:print:print"[145] "
2683 poke214,0:print:printtab(0)"[145]spieler-1:";g1;tab(18)"spieler-2:";g2
2684 vx=0:vy=0
2800 rem*
2810 i=i-1
2820 onflgosub200,300
2860 poke214,5:print:printtab(31);i;"[157] "
2865 ifi<0theni=0:goto4000
2875 vx=vx-vx/100:vy=vy-vy/100
2880 x=x+vx:y=y+vy
2885 pokevc,x:pokev3,y:pokes4,0
2887 l=peek(v1)
2890 k=peek(v2):ifk<>0thengosub1200
2895 if(land1)=1thengosub1400
2950 goto2800
3000 rem*
3050 i=i-1:onflgosub200,300
3090 poke214,5:print:printtab(31);i;"[157] "
3091 ifi<2theni=0:goto1800
3110 pokes4,0:vx=vx-vx/30:vy=vy-vy/30
3120 x=x+vx:y=y+vy:pokevc,x:pokev3,y
3200 k=peek(v2):ifk<>0thengosub1500
3220 l=peek(v1):if(land1)=1thengosub1000
3250 goto3000
4000 rem*
4010 gosub10500:zz=19+pl:gosub10200
4025 ifpl=1theng1=g1+i
4026 ifpl=2theng2=g2+i
4027 poke214,0:print:printtab(0)"[145]spieler-1:";g1;tab(18)"spieler-2:";g2
4060 if(sp=2andpl=1)thenpl=2:goto2650
4200 poke214,10:print:print
4205 pokevc+21,0
4207 poke56322,255
4210 print"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
4211 print"[221] [221]"
4212 print"[221] das war -k-l-i-ck-e-r- [221]"
4213 print"[221] [221]"
4214 print"[221] wiederholen ? (taste) [221]"
4215 print"[221] [221]"
4216 print"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
4218 clr
4220 ta=peek(203)
4225 ifta=64thengoto4220
4235 run1
8000 rem*
8001 forn=1to41:print"k-l-i-[154]ck-[156]e-[149]r ";:next
8002 print"[144]***von bernd tritschler***"
8003 print"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
8004 print"[221] steuerung durch: [221]"
8005 print"[221] [221]"
8006 print"[221] joystick .............1 [221]"
8007 print"[221] [221]"
8008 print"[221] tastatur .............2 [221]"
8009 print"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
8010 getl$
8011 ifl$="1"thenpoke56322,224:fl=1:goto11000
8012 ifl$="2"thenfl=2:goto11100
8013 goto8010
8015 v3=53249:v4=53250:v5=53251
8016 vc=53248:v1=53279:v2=53278:pl=1
8017 pokevc,30:pokevc+1,100
8018 x=30:y=100
8019 forn=0to62:readm:poke704+n,m:next
8020 poke2040,11:pokevc+39,13
8025 pokevc+21,0:pokev1,0:pokev2,0
8032 pokevc+29,60:pokevc+23,66
8035 forn=2041to2046:poken,254:next
8036 forn=40to46:pokevc+n,15:next
8041 pokevc+2,224:pokevc+3,95
8043 pokevc+4,170:pokevc+5,64
8046 pokevc+6,170:pokevc+7,213
8049 pokevc+8,140:pokevc+9,186
8051 pokevc+10,111:pokevc+11,213
8053 pokevc+12,103:pokevc+13,168
8054 poke2047,255
8055 pokevc+14,180:pokevc+15,110
8060 forn=832to959:poken,0:next
8070 forf=1to4:readn,m:poke832+n,m:next
8080 forf=1to8:readn,m:poke896+n,m:next
8200 forn=254to255
8210 form=0to62
8220 readf:poken*64+m,f
8230 nextm,n
8235 print"[147]"
8236 b(1)=.2:b(2)=.3:b(3)=.2
8240 gosub53:poke53280,11:poke53281,11
8500 rem*
8510 si=54272:s4=54276
8520 pokesi+24,15
8525 pokesi+6,248
8530 pokesi+4,8
8540 pokesi+4,16
9199 pokevc+21,135
9200 rem*
9399 z=0:x=146:y=68:vx=4:vy=3
9404 poke214,20:print:printtab(13+z)" "
9405 a=peek(56320):aa=peek(203)
9406 if(aand8)=0thenz=z+1
9407 if(aand4)=0thenz=z-1
9408 ifaa=12thenz=z-1
9409 ifaa=23thenz=z+1
9410 poke214,20:print:printtab(13+z)"<->"
9412 ifz=-2thensp=1:goto9490
9413 ifz=2thensp=2:goto9490
9415 vx=vx-vx/50:vy=vy-vy/50
9417 x=x+vx:y=y+vy:pokevc,x:pokev3,y
9418 k=peek(v2):ifk<>0thengosub1500
9419 l=peek(v1):if(land1)=1thengosub1000
9485 goto9404
9490 vx=0:vy=0:i=1000:x=65:y=215
9491 pokevc,x:pokev3,y:pokev1,0
9492 gosub109:pokev1,0:pokev2,0
9493 poke1142,49:poke1182,48+pl:ru=1
9495 pokevc+21,255:gosub10000:goto3000
9510 rem ball
9512 data7,0,0,31,192,0,127,240,0,127,240,0,255,248,0,245,248
9514 data0,107,240,0,118,240,0,61,224,0,31,192,0,7,0,0
9516 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
9520 data12,248,15,248,13,248,16,248
9525 data0,7,3,7,6,7,9,7,21,7,24,7,27,7,30,7
9550 rem rampe
9551 data0,0,0,31,255,240,63
9552 data255,248,98,16,140,194,16
9553 data134,194,16,134,255,255,254
9554 data194,16,134,194,16,134,194
9555 data16,134,255,255,254,194,16
9556 data134,194,16,134,194,16,134
9557 data255,255,254,194,16,134,194
9558 data16,134,98,16,140,63,255
9559 data248,31,255,240,0,0,0
9610 rem ziel
9611 data0,0,0,127,255,254,255
9612 data255,255,0,0,0,0,0
9613 data0,252,207,152,252,204,24
9614 data12,204,24,24,204,24,48
9615 data207,152,96,204,24,192,204
9616 data24,252,204,31,252,207,159
9617 data0,0,0,0,0,0,255
9618 data255,255,127,255,254,0,0
9619 data0,0,0,0,0,0,0
9740 rem schluessel
9741 data0,0,0,0,0,0,0
9742 data0,0,0,3,0,0,4
9743 data128,127,252,128,127,252,128
9744 data120,4,128,88,3,0,80
9745 data0,0,0,0,0,0,0
9746 data0,0,0,0,0,0,0
9747 data0,0,0,0,0,0,0
9748 data0,0,0,0,0,0,0
9749 data0,0,0,0,0,0,0
9750 rem hammer 1
9751 data0,0,0,0,0,0,0
9752 data0,0,0,0,0,0,0
9753 data0,0,0,0,0,0,0
9754 data0,0,0,0,0,0,0
9755 data0,0,6,0,0,14,0
9756 data0,30,0,0,62,0,0
9757 data63,255,224,63,255,224,62
9758 data0,0,62,0,0,62,0
9759 data0,62,0,0,0,0,0
9760 rem hammer2
9761 data0,0,0,0,0,0,0
9762 data0,0,0,0,0,0,127
9763 data0,0,254,0,1,252,0
9764 data3,248,0,7,240,0,3
9765 data248,0,1,204,0,0,134
9766 data0,0,3,0,0,1,128
9767 data0,0,192,0,0,96,0
9768 data0,48,0,0,0,0,0
9769 data0,0,0,0,0,0,0
9770 rem hammer3
9771 data0,0,0,0,0,0,0
9772 data0,0,0,0,0,0,0
9773 data0,0,0,0,0,0,0
9774 data0,0,0,0,0,192,0
9775 data0,224,0,0,240,0,0
9776 data248,0,0,248,31,255,248
9777 data31,255,248,0,0,248,0
9778 data0,248,0,0,248,0,0
9779 data248,0,0,0,0,0,0
9780 rem hammer 4
9781 data0,0,0,0,0,0,3
9782 data248,0,1,252,0,0,254
9783 data0,0,127,0,0,63,128
9784 data0,63,192,0,111,128,0
9785 data199,0,1,130,0,3,0
9786 data0,6,0,0,12,0,0
9787 data24,0,0,16,0,0,0
9788 data0,0,0,0,0,0,0
9789 data0,0,0,0,0,0,0
9790 data65,213,53,121,95,110,230,200,208,91
9795 data1565,1566,1525,1526,1485,1486
9796 data1444,1404,1443,1403
9800 rem ru 3
9805 data99,216,225,73,185,74,110,80,74,151,136,151
9810 data8,8,8,8,8,8
9820 data62,191,160,220,182,122,96,68,46,154
10000 pokesi,181:pokesi+1,65
10010 forn=5to1step-1:pokesi+4,17
10020 poke1906,45:poke1907,48+n:poke1908,45
10025 form=1to25:poke1182,176+pl:nextm
10026 pokesi+4,16
10027 form=1to25:poke1182,48+pl:nextm
10030 next
10035 pokesi,103:pokesi+1,17
10036 pokesi+4,17
10037 forn=1to100
10038 pokesi+4,16
10040 poke1906,32:poke1907,32:poke1908,32
10049 t=ti
10050 return
10200 rem
10205 fr=8400
10210 e$=t$+"[221]"+e$
10212 ifi<1thene$="-:--[221] - "
10230 form=1to10
10250 poke214,zz:print:printtab(31)"";e$;
10255 forn=1to200:nextn
10260 poke214,zz:print:printtab(31)"[146]"e$;
10265 forn=1to200:nextn
10270 nextm
10299 return
10500 rem up
10502 pokesi+4,33
10503 t=ti-t:t=int(t/60)
10505 t1=int(t/60):t2=t-t1*60
10510 t$=str$(t1):t2$=str$(t2)
10515 t$=str$(t1):t2$=str$(t2)
10520 t$=str$(t1):t2$=str$(t2)
10525 t$=right$(t$,1):t2$=right$(t2$,2)
10530 t$=t$+":"+t2$
10535 ift2<10thent$=left$(t$,2)+"0"+right$(t$,1)
10540 e$=str$(i):e$=right$(e$,3)
10550 forn=1000to20000step500
10555 pokesi,nand255
10556 pokesi+1,int(n/256)
10557 pokesi+4,33
10580 next
10585 pokesi+4,0
10590 return
11000 poke214,17:print:printtab(5)" "
11010 printtab(5)"steuerung durch joystick "
11020 printtab(5)" in port 2 [158]"
11090 goto8015
11100 poke214,17:print:printtab(5)" "
11110 printtab(4)"links----z rechts----x"
11120 printtab(4)"hoch---crsr^ runter----crsr_[158]"
11125 forn=1to5000:next
11130 goto8015